3-2  дMsgBoxжϳǷִС
Private Sub Button1_Click( _ ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prompt, Title, dat, x As String
        prompt = "һ"
        Title = "InputBox and MsgBox"
MK:
        dat = InputBox(prompt, Title, 5)
        prompt = "ǣ" + dat + ",ȷϴǷȷ"
        x = MsgBox(prompt, 19, Title)
        If x = 7 Then Console.WriteLine("") : GoTo MK 'ûˡ񡱼
        If x = 2 Then End 'ûˡȡ
        Console.WriteLine(dat * dat)
End Sub
